Tx = Sequence(Segment[(t, 0, (-0.1)), (t, 0, 0.1)], t, 1, 6)
Tz = Sequence(Segment[(0, (-0.1), t), (0, 0.1, t)], t, 1, 6)
c_2 = 0
c_3 = 0
c_4 = 0
c_5 = 0
c_6 = 0
c_7 = 0
u_1 = Vector((0, 0, 0), (7, 0, 0))
f(x) = (((-(x + 1)) * (x - 5.7)) * 0.32)
b = 4.2 (slider from -5 to 7, step 0.1)
v1 = Vector((0, -2, 0), (0, 8, 0))
Ty = Sequence(Segment[(0, t, (-0.1)), (0, t, 0.1)], t, 1, 7)
w1 = Vector((0, 0, 0), (0, 0, 6))
a = Surface((cos(v) * f(u)), u, (sin(v) * f(u)), u, 0, b, v, 0, 6.28319)